﻿Imports Control_Vuelos_BL
Imports Control_Vuelos_BE
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid.Views.Grid

Public Class frmAdm_ConsolidaFactura
    Inherits frmBaseMantenimiento
    ReadOnly vConciliaBL As New ConsolidadoBL()
    Dim vConciliaBE As New ConsolidadoBE
    ReadOnly vMaestroBL As New MaestrosBL()
    Dim tbTipoDocumento, tbDiario, tbMonedas, tbAerolinea, tbPeriodo As New DataTable
    Dim nopc As Integer = 0
    Dim sTicket As String

    Private Sub frmAdm_ConsolidaFactura_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        AddHandler UcConsolidado1.btnBuscar.Click, AddressOf btnclickbuscar
        AddHandler UcConsolidado1.btnBuscarVuelo.Click, AddressOf btnclickBuscarVuelos
        AddHandler BarBtnAgregar.ItemClick, AddressOf RegistroNuevo
        AddHandler BarBtnModificar.ItemClick, AddressOf RegistroModificar
        AddHandler BarBtnEliminar.ItemClick, AddressOf RegistroEliminar
        AddHandler BarBtnGrabar.ItemClick, AddressOf RegistroGrabar
        AddHandler BarBtnCancelar.ItemClick, AddressOf RegistroCancelar
        AddHandler UcConsolidado1.cboFechaIngreso.LostFocus, AddressOf BuscarTipoCambio
        AddHandler UcConsolidado1.RepositoryItemCheckEdit3.EditValueChanged, AddressOf CargarDetalleManifiesto
        AddHandler UcConsolidado1.GridView2.ValidatingEditor, AddressOf pr_ValidarGrid2
        AddHandler UcConsolidado1.GridView3.FocusedRowChanged, AddressOf CargaTicket

        BarBtnRefresh.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
        BarBtnImprimir.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
        CargarCombos()
        SLTitulo.Text = "Consolidar Factura"
        nopc = 0
        CargaInicial()
    End Sub

    Private Sub CargaInicial()
        InicializarBoton(True, False)
        BarBtnModificar.Enabled = False
        BarBtnEliminar.Enabled = False
        UcConsolidado1.XtraTabControl1.SelectedTabPageIndex = 0
        ' cargo la grilla con el detalle
        UcConsolidado1.txtPeriodo.EditValue = ""
        UcConsolidado1.txtAsiento.EditValue = ""
        UcConsolidado1.txtDocumento.EditValue = ""
        UcConsolidado1.txtTicket.EditValue = ""
        UcConsolidado1.txtPasajero.EditValue = ""
        UcConsolidado1.chkDetalle.EditValue = False
        UcConsolidado1.chkNoViajaron.EditValue = False
        UcConsolidado1.GridControl3.DataSource = vConciliaBL.ListarConsolidado("NroPeriodo='000000'")
        UcConsolidado1.txtTicket.Focus()
    End Sub

    Private Sub InicializarBoton(ByVal lFlag As Boolean, ByVal lFlag2 As Boolean)
        BarBtnAgregar.Enabled = lFlag
        BarBtnModificar.Enabled = lFlag
        BarBtnEliminar.Enabled = lFlag
        BarBtnCancelar.Enabled = lFlag2
        BarBtnGrabar.Enabled = lFlag2
    End Sub

    Private Sub HabilitarCajas(ByVal lFlag As Boolean, ByVal lFlag2 As Boolean)
        UcConsolidado1.txtNroTicket.Enabled = lFlag2
        UcConsolidado1.cboFechaIngreso.Enabled = lFlag
        UcConsolidado1.cboCiaAerea.Enabled = lFlag2
        UcConsolidado1.cboPeriodo.Enabled = lFlag
        UcConsolidado1.txtAsiento2.Enabled = False
        UcConsolidado1.cboTipoDocumento.Enabled = lFlag
        UcConsolidado1.txtDocumento2.Enabled = lFlag
        UcConsolidado1.txtCondicionPago.Enabled = lFlag
        UcConsolidado1.cboMoneda.Enabled = lFlag
        UcConsolidado1.cboDiario.Enabled = lFlag
        UcConsolidado1.cboFechaEmision.Enabled = lFlag
        UcConsolidado1.txtTipoCambio.Enabled = lFlag
        UcConsolidado1.txtMontoVenta.Enabled = lFlag
        UcConsolidado1.cboFechaVuelo.Enabled = lFlag2
        UcConsolidado1.chkDetraccion.Enabled = lFlag
    End Sub

    Private Sub RegistroNuevo()
        InicializarBoton(False, True)
        HabilitarCajas(True, True)
        UcConsolidado1.XtraTabControl1.SelectedTabPageIndex = 1
        UcConsolidado1.txtNroTicket.EditValue = vConciliaBL.CargaCorrelativoTicket()
        UcConsolidado1.cboFechaIngreso.EditValue = Date.Now
        UcConsolidado1.cboCiaAerea.EditValue = "001"
        UcConsolidado1.cboPeriodo.EditValue = "201206"
        UcConsolidado1.cboDiario.EditValue = "206"
        UcConsolidado1.txtAsiento2.EditValue = ""
        UcConsolidado1.cboTipoDocumento.EditValue = "01"
        UcConsolidado1.txtDocumento2.EditValue = ""
        UcConsolidado1.txtCondicionPago.EditValue = 0
        UcConsolidado1.cboMoneda.EditValue = "S"
        UcConsolidado1.cboFechaEmision.EditValue = Date.Now
        UcConsolidado1.txtTipoCambio.EditValue = 0.0
        UcConsolidado1.txtMontoVenta.EditValue = 0.0
        UcConsolidado1.cboFechaVuelo.EditValue = Date.Now
        UcConsolidado1.chkDetraccion.EditValue = False
        BuscarTipoCambio()
        BorrarGrillas()
        UcConsolidado1.txtNroTicket.Focus()
    End Sub

    Private Sub BorrarGrillas()
        Dim dt As New DataTable
        dt.Reset()
        UcConsolidado1.GridControl1.DataSource = dt
        UcConsolidado1.GridControl2.DataSource = dt
    End Sub

    Private Sub RegistroModificar()
        If Not sTicket Is String.Empty Then
            vConciliaBE = vConciliaBL.TraerProvision(sTicket)
            InicializarBoton(False, True)
            HabilitarCajas(IIf(UcConsolidado1.txtAsiento2.EditValue Is String.Empty, False, True), False)
            UcConsolidado1.XtraTabControl1.SelectedTabPageIndex = 1
            UcConsolidado1.txtNroTicket.EditValue = vConciliaBE.NroTicket
            UcConsolidado1.cboFechaIngreso.EditValue = vConciliaBE.FchIngreso
            UcConsolidado1.cboCiaAerea.EditValue = vConciliaBE.CodEmpresa
            UcConsolidado1.cboPeriodo.EditValue = vConciliaBE.NroPeriodo
            UcConsolidado1.cboDiario.EditValue = vConciliaBE.CodAsiento
            UcConsolidado1.txtAsiento2.EditValue = vConciliaBE.NroAsiento
            UcConsolidado1.cboTipoDocumento.EditValue = vConciliaBE.TipDocumento
            UcConsolidado1.txtDocumento2.EditValue = vConciliaBE.NroDocumento
            UcConsolidado1.txtCondicionPago.EditValue = vConciliaBE.NroConPago
            UcConsolidado1.cboMoneda.EditValue = vConciliaBE.CodMoneda
            UcConsolidado1.cboFechaEmision.EditValue = vConciliaBE.FchEmision
            UcConsolidado1.txtTipoCambio.EditValue = vConciliaBE.MonTipoCambio
            UcConsolidado1.txtMontoVenta.EditValue = vConciliaBE.MonTotal
            UcConsolidado1.cboFechaVuelo.EditValue = vConciliaBE.FchVuelo
            UcConsolidado1.chkDetraccion.Checked = vConciliaBE.FlgDetraccion
            ' cargo la cabecera con los vuelos de la fecha indicada
            Dim sFecha As String = CType(UcConsolidado1.cboFechaVuelo.EditValue, String)
            Dim dtVuelos As DataTable = vConciliaBL.CargarCabeceraManifiesto(sFecha)
            If dtVuelos.Rows.Count > 0 Then
                UcConsolidado1.GridControl1.DataSource = dtVuelos
                ' ahora cargo el detalle con la relacion de pasajeros
                Dim dtDet As New DataTable
                dtDet = vConciliaBL.CargarDetalleManifiesto(UcConsolidado1.txtNroTicket.EditValue)
                If dtDet.Rows.Count > 0 Then
                    UcConsolidado1.GridControl2.DataSource = dtDet
                End If
            End If
            UcConsolidado1.GridView1.Focus()
        End If
    End Sub

    Private Sub RegistroEliminar()
        If Not sTicket Is String.Empty Then
            vConciliaBE = vConciliaBL.TraerProvision(sTicket)
            If vConciliaBE.CodAsiento.Trim Is String.Empty Then
                If MsgBox("¿Está seguro de eliminar el registro?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Desición") = MsgBoxResult.Yes Then
                    Dim lFlgOka As Boolean
                    lFlgOka = vConciliaBL.EliminarProvision(vConciliaBE.NroTicket)
                    If lFlgOka = True Then
                        MsgBox("La eliminación del ticket con la conciliación se realizó con éxito...", MsgBoxStyle.Information, "Proceso éxitoso")
                        btnclickbuscar()
                    Else
                        MsgBox("Ha ocurrido un error al tratar de eliminar el ticket con la conciliación...", MsgBoxStyle.Critical, "Proceso con problemas")
                    End If
                End If
            Else
                MsgBox("El ticket con la conciliación ya tiene relacionado un asiento...", MsgBoxStyle.Information, Text)
            End If
        End If
    End Sub

    Private Sub RegistroGrabar()
        ' Grabamos la informacion
        ' v_provision
        Dim vCon As ConsolidadoBE = New ConsolidadoBE() With {.NroTicket = UcConsolidado1.txtNroTicket.EditValue, .NroPeriodo = UcConsolidado1.cboPeriodo.EditValue, .CodAsiento = Strings.Left(UcConsolidado1.txtAsiento2.EditValue, 3), .NroAsiento = Strings.Right(UcConsolidado1.txtAsiento2.EditValue, 4), .TipDocumento = UcConsolidado1.cboTipoDocumento.EditValue, .NroDocumento = UcConsolidado1.txtDocumento2.EditValue, .FchIngreso = UcConsolidado1.cboFechaIngreso.EditValue, .FchEmision = UcConsolidado1.cboFechaEmision.EditValue, .FchVuelo = UcConsolidado1.cboFechaVuelo.EditValue, .MonTipoCambio = UcConsolidado1.txtTipoCambio.EditValue, .CodMoneda = UcConsolidado1.cboMoneda.EditValue, .MonTotal = UcConsolidado1.txtMontoVenta.EditValue, .CodEmpresa = UcConsolidado1.cboCiaAerea.EditValue, .NroConPago = UcConsolidado1.txtCondicionPago.EditValue, .FlgDetraccion = UcConsolidado1.chkDetraccion.Checked}
        If vConciliaBL.ActualizarProvision(vCon) = True Then
            ' c_manifiesto (grabo si se ha enviado producto)
            Dim Row1 As DataRow
            For C = 0 To UcConsolidado1.GridView1.RowCount - 1
                Row1 = CType(UcConsolidado1.GridView1.GetDataRow(C), DataRow)
                Dim sCodViaje As String = Row1("CodVuelo")
                Dim lFlgProducto As Boolean = Row1("FlgProducto")
                Dim lFlgSeleccionado As Boolean = Row1("FlgSeleccion")
                If lFlgSeleccionado = True Then
                    vConciliaBL.ActualizarProvisionManifiestoProducto(sCodViaje, lFlgProducto)
                End If
            Next
            'd_manifiesto
            Dim Row2 As DataRow
            For D = 0 To UcConsolidado1.GridView2.RowCount - 1
                Row2 = CType(UcConsolidado1.GridView2.GetDataRow(D), DataRow)
                Dim sCodViaje As String = Row2("CodVuelo")
                Dim nReserva As Integer = Row2("CodReserva")
                Dim sItem As String = Strings.Right("00" & CType(D + 1, String).Trim, 3)
                Dim sComunidad As String = Row2("CodComunidad")
                Dim nPasaje As Decimal = Row2("MonPasaje")
                Dim lNoEditar As Boolean = Row2("FlgNoEditar")
                vConciliaBL.ActualizarProvisionManifiestoDetalle(sCodViaje, nReserva, sItem, sComunidad, nPasaje, lNoEditar)
            Next
        End If
        ' Retornamos a la primera pantalla
        CargaInicial()
    End Sub

    Private Sub RegistroCancelar()
        UcConsolidado1.XtraTabControl1.SelectedTabPageIndex = 0
        CargaInicial()
    End Sub

    Private Sub btnclickbuscar()
        Dim sFiltro As String = ""
        ' Periodo
        If UcConsolidado1.txtPeriodo.EditValue = "" Then
            sFiltro = "NroPeriodo='201204'"
        Else
            sFiltro = String.Format("NroPeriodo='{0}'", UcConsolidado1.txtPeriodo.EditValue.ToString.Replace("/", ""))
        End If
        ' Asiento
        If UcConsolidado1.txtAsiento.EditValue <> "" Then
            sFiltro = String.Format("{0} AND Asiento LIKE {1}%", sFiltro, UcConsolidado1.txtAsiento.EditValue.ToString.Replace("-", ""))
        End If
        'Documento
        If UcConsolidado1.txtDocumento.EditValue <> "" Then
            sFiltro = String.Format("{0} AND NroDocumento LIKE {1}%", sFiltro, UcConsolidado1.txtDocumento.EditValue.ToString.Replace("-", ""))
        End If
        'Ticket
        If UcConsolidado1.txtTicket.EditValue <> "" Then
            sFiltro = String.Format("{0} AND NroTicket LIKE {1}%", sFiltro, UcConsolidado1.txtTicket.EditValue)
        End If
        'Pasajero
        'UcConsolidado1.txtPasajero.EditValue = ""
        'UcConsolidado1.chkDetalle.EditValue = False
        'UcConsolidado1.chkNoViajaron.EditValue = False
        Dim dtConsulta As DataTable = vConciliaBL.ListarConsolidado(sFiltro)
        If dtConsulta.Rows.Count > 0 Then
            BarBtnModificar.Enabled = True
            BarBtnEliminar.Enabled = True
            UcConsolidado1.GridControl3.DataSource = dtConsulta
            UcConsolidado1.GridControl3.Focus()
        Else
            MsgBox("No hay registros que cumplan la condición...", MsgBoxStyle.Information, Text)
        End If
    End Sub

    Private Sub btnclickBuscarVuelos()
        If UcConsolidado1.DxValidationProvider1.Validate Then
            Dim sFecha As String = CType(UcConsolidado1.cboFechaVuelo.EditValue, String)
            Dim dtVuelos As DataTable = vConciliaBL.CargarCabeceraManifiesto(sFecha)
            If dtVuelos.Rows.Count > 0 Then
                ' Grabo el ticket para tenerlo como referencia
                Dim vCon As New ConsolidadoBE
                vCon.NroTicket = UcConsolidado1.txtNroTicket.EditValue
                vCon.NroPeriodo = UcConsolidado1.cboPeriodo.EditValue
                vCon.CodAsiento = UcConsolidado1.cboDiario.EditValue
                vCon.NroAsiento = Strings.Right(UcConsolidado1.txtAsiento2.EditValue, 4)
                vCon.TipDocumento = UcConsolidado1.cboTipoDocumento.EditValue
                vCon.NroDocumento = UcConsolidado1.txtDocumento2.EditValue
                vCon.FchIngreso = UcConsolidado1.cboFechaIngreso.EditValue
                vCon.FchEmision = UcConsolidado1.cboFechaEmision.EditValue
                vCon.FchVuelo = UcConsolidado1.cboFechaVuelo.EditValue
                vCon.MonTipoCambio = UcConsolidado1.txtTipoCambio.EditValue
                vCon.CodMoneda = UcConsolidado1.cboMoneda.EditValue
                vCon.MonTotal = UcConsolidado1.txtMontoVenta.EditValue
                vCon.CodEmpresa = UcConsolidado1.cboCiaAerea.EditValue
                vCon.NroConPago = UcConsolidado1.txtCondicionPago.EditValue
                vCon.FlgDetraccion = UcConsolidado1.chkDetraccion.Checked
                If vConciliaBL.ActualizarProvision(vCon) = True Then
                    UcConsolidado1.GridControl1.DataSource = dtVuelos
                    UcConsolidado1.GridControl1.Focus()
                Else
                    MsgBox("No se puede crear la conciliación para la fecha indicada...", MsgBoxStyle.Information, Text)
                End If
            Else
                MsgBox("No se han realizado vuelos en la fecha indicada...", MsgBoxStyle.Information, Text)
            End If
        End If
    End Sub

    Private Sub pr_ValidarGrid2(ByVal sender As Object, ByVal e As DevExpress.XtraEditors.Controls.BaseContainerValidateEditorEventArgs)
        Try
            Dim View As GridView = CType(sender, GridView)
            If View.FocusedColumn.FieldName = "MonPasaje" Then
                'Get the currently edited value 
                Dim nMonPasaje As Decimal = e.Value
                ' obtenemos el valor original de la columna
                Dim nMonPasajeOriginal As Decimal = View.GetRowCellValue(View.FocusedRowHandle, "MonPasaje")
                ' averiguamos el valor de la columna que tiene el flag de noeditar
                Dim oTipPorExcepcion As String = View.GetRowCellValue(View.FocusedRowHandle, "FlgNoEditar").ToString
                If oTipPorExcepcion = "True" Then
                    e.Valid = False
                    e.ErrorText = " El precio del pasaje NO se puede editar"
                    View.SetRowCellValue(View.FocusedRowHandle, "MonPasaje", nMonPasajeOriginal)
                End If
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub CargaTicket()
        If UcConsolidado1.GridView3.RowCount > 0 Then
            Dim Rows As New ArrayList()
            Rows.Add(UcConsolidado1.GridView3.GetDataRow(UcConsolidado1.GridView3.GetSelectedRows()(0)))
            Dim Row As DataRow = CType(Rows(0), DataRow)
            If Not Row Is Nothing Then
                sTicket = Row("NroTicket")
            End If
        Else
            sTicket = ""
        End If
    End Sub

    Private Sub CargarDetalleManifiesto(sender As Object, e As System.EventArgs)
        ' Si hay un registro
        Dim row As DataRow = TryCast(UcConsolidado1.GridView1.GetDataRow(UcConsolidado1.GridView1.GetSelectedRows()(0)), DataRow)
        If Not row Is Nothing Then
            Dim ScodVuelo As String = row("CodVuelo")
            ' Sender tendra el valor del checkedit
            Dim edit As CheckEdit = CType(sender, CheckEdit)
            ' Si se activa el check se asigna el ticket al vuelo 
            If edit.EditValue = True Then
                vConciliaBL.ActualizarProvisionManifiesto(ScodVuelo, UcConsolidado1.txtNroTicket.EditValue)
            Else
                ' Si no se activa el check se quita el ticket del vuelo
                vConciliaBL.ActualizarProvisionManifiesto(ScodVuelo, "")
            End If
        End If
        ' Aqui cargamos los datos para el detalle del manifiesto
        Dim dtDet As New DataTable
        dtDet = vConciliaBL.CargarDetalleManifiesto(UcConsolidado1.txtNroTicket.EditValue)
        ' ahora cargamos los precios segun lo indicado
        For x = 0 To dtDet.Rows.Count - 1
            Dim lNoEditar As Boolean = dtDet.Rows(x).Item("FlgNoEditar")
            If lNoEditar = False Then
                ' reemplazo el precio del pasaje
                dtDet.Rows(x).Item("MonPasaje") = dtDet.Rows(x).Item("PrePasaje")
            End If
        Next
        UcConsolidado1.GridControl2.DataSource = dtDet
    End Sub

    Private Sub BuscarTipoCambio()
        Dim sFec As String = CType(UcConsolidado1.cboFechaIngreso.EditValue, String)
        Dim sFch As String = Strings.Mid(sFec, 7, 4) & Strings.Mid(sFec, 4, 2) & Strings.Mid(sFec, 1, 2)
        UcConsolidado1.txtTipoCambio.EditValue = vMaestroBL.Get_TipoCambio(sFch)
    End Sub

    Private Sub CargarCombos()
        tbTipoDocumento = vMaestroBL.Get_Documentos()
        UcConsolidado1.cboTipoDocumento.Properties.DataSource = tbTipoDocumento
        UcConsolidado1.cboTipoDocumento.Properties.DisplayMember = "desTipoDocumento"
        UcConsolidado1.cboTipoDocumento.Properties.ValueMember = "codTipoDocumento"
        UcConsolidado1.cboTipoDocumento.Properties.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("codTipoDocumento", 15, "Código"))
        UcConsolidado1.cboTipoDocumento.Properties.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("desTipoDocumento", 60, "Descripción"))
        UcConsolidado1.cboTipoDocumento.Properties.BestFit()
        UcConsolidado1.cboTipoDocumento.Properties.PopupWidth = 120
        UcConsolidado1.cboTipoDocumento.Properties.SearchMode = SearchMode.AutoComplete
        UcConsolidado1.cboTipoDocumento.Properties.AutoSearchColumnIndex = 1
        tbMonedas = vMaestroBL.Get_Monedas()
        UcConsolidado1.cboMoneda.Properties.DataSource = tbMonedas
        UcConsolidado1.cboMoneda.Properties.DisplayMember = "nomMoneda"
        UcConsolidado1.cboMoneda.Properties.ValueMember = "codMoneda"
        UcConsolidado1.cboMoneda.Properties.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("codMoneda", 15, "Código"))
        UcConsolidado1.cboMoneda.Properties.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("nomMoneda", 60, "Descripción"))
        UcConsolidado1.cboMoneda.Properties.BestFit()
        UcConsolidado1.cboMoneda.Properties.PopupWidth = 120
        UcConsolidado1.cboMoneda.Properties.SearchMode = SearchMode.AutoComplete
        UcConsolidado1.cboMoneda.Properties.AutoSearchColumnIndex = 1
        tbAerolinea = vMaestroBL.Get_Aerolinea()
        UcConsolidado1.cboCiaAerea.Properties.DataSource = tbAerolinea
        UcConsolidado1.cboCiaAerea.Properties.DisplayMember = "NomEmpresa"
        UcConsolidado1.cboCiaAerea.Properties.ValueMember = "CodEmpresa"
        UcConsolidado1.cboCiaAerea.Properties.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("CodEmpresa", 15, "Código"))
        UcConsolidado1.cboCiaAerea.Properties.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("NomEmpresa", 60, "Descripción"))
        UcConsolidado1.cboCiaAerea.Properties.BestFit()
        UcConsolidado1.cboCiaAerea.Properties.PopupWidth = 120
        UcConsolidado1.cboCiaAerea.Properties.SearchMode = SearchMode.AutoComplete
        UcConsolidado1.cboCiaAerea.Properties.AutoSearchColumnIndex = 1
        tbPeriodo = vMaestroBL.Get_Periodo()
        UcConsolidado1.cboPeriodo.Properties.DataSource = tbPeriodo
        UcConsolidado1.cboPeriodo.Properties.DisplayMember = "desmes"
        UcConsolidado1.cboPeriodo.Properties.ValueMember = "anomes"
        UcConsolidado1.cboPeriodo.Properties.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("anomes", 6, "Periodo"))
        UcConsolidado1.cboPeriodo.Properties.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("desmes", 20, "Descripción"))
        UcConsolidado1.cboPeriodo.Properties.BestFit()
        UcConsolidado1.cboPeriodo.Properties.PopupWidth = 120
        UcConsolidado1.cboPeriodo.Properties.SearchMode = SearchMode.AutoComplete
        UcConsolidado1.cboPeriodo.Properties.AutoSearchColumnIndex = 1
        tbDiario = vMaestroBL.Get_Diario()
        UcConsolidado1.cboDiario.Properties.DataSource = tbDiario
        UcConsolidado1.cboDiario.Properties.DisplayMember = "desasn"
        UcConsolidado1.cboDiario.Properties.ValueMember = "codasn"
        UcConsolidado1.cboDiario.Properties.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("codasn", 6, "Periodo"))
        UcConsolidado1.cboDiario.Properties.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("desasn", 20, "Descripción"))
        UcConsolidado1.cboDiario.Properties.BestFit()
        UcConsolidado1.cboDiario.Properties.PopupWidth = 120
        UcConsolidado1.cboDiario.Properties.SearchMode = SearchMode.AutoComplete
        UcConsolidado1.cboDiario.Properties.AutoSearchColumnIndex = 1
    End Sub
End Class